home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 52 / Amiga Format AFCD52 (Issue 136, May 2000).iso / -in_the_mag- / reader_requests / wild / support / table_sincos1616.bas < prev    next >
BASIC Source File  |  2000-02-23  |  256b  |  10 lines
  1.  
  2. WINDOW 1,"SinCos1616.table maker..."
  3. PRINT "1024 angles stored in this table. Offsets: 0=sin 16.16 4=con 16.16"
  4.  
  5. OPEN "Ram:SinCos1616.table" FOR OUTPUT AS 1
  6. FOR i=0 TO 1023
  7.  a=3.1415926*i/512
  8.  PRINT #1,MKL$(SIN(a)*65536);MKL$(COS(a)*65536);
  9. NEXT i
  10. CLOSE 1